home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / zcommbar.zip / PHODIR.T < prev    next >
Text File  |  1987-12-22  |  2KB  |  54 lines
  1. setup    cls; ena -d; port 1; speed 2400; pa2000
  2.          p--1    :: This is important or Slashbar won't work at +++d: prompt
  3.          set mprefix "ATDT";set l "1"; set m "1"
  4.          set fdel "\023"
  5.          set fins "\021"
  6.          set helpfile "@yhp zmanh.hlp"
  7.          display warpdrive;display bell=visual
  8.          pat 1 "OK"; put "AT E0 X6 M3\r";wait
  9.          if !1 lput "\n\nTurn on MODEM!!";fail
  10.          dis -d;cls
  11.          fail
  12.  
  13. ::Local BBS in South Bend, Ind. area
  14. link           cls;speed 2400;ena -8g;277-7278;t
  15. forum_five     cls;speed 2400;ena -8g;255-2627;t
  16. adn            cls;speed 2400;ena -8g;255-7286;t
  17. mts            cls;speed 2400;ena -8g;258-0286;t
  18. treasure       cls;speed 2400;ena -8g;287-4326;t
  19. fargo          cls;speed 2400;ena -8g;17012935973;t
  20. telegodzilla   cls;speed 2400;ena -8g;1-503-621-3746;t
  21. captn_jack     cls;speed 2400;ena -8g;277-0809;gosub pcblog;t
  22. indata         cls;speed 2400;ena -8n;234-9403;gosub pcblog;t
  23. 1200cis        cls;speed 1200;ena -7e;271-9541;gosub cisnd;t -c
  24. 300cis         cls;speed  300;ena -7e;271-9541;gosub cisnd;t -c
  25. river_city     cls;speed 2400;ena -8g;287-3358;gosub rivlog;t
  26. elkhart        cls;speed 2400;ena -8g;1-219-522-1149;gosub pcblog;t
  27. genie          cls;speed 1200;ena -7e;234-2931;gosub gelog;t
  28. stock          cls;speed 1200;ena -7e;234-2931;gosub stlog;t
  29. people_link    cls;speed 1200;ena -7e;234-5005;gosub peolog;t
  30. exec-pc        cls;speed 2400;ena -8g; 1-414-964-5160;gosub expc;t
  31.  
  32. :: Subroutines for login add as needed to personalize
  33.  
  34. pcblog:      pat 1 "=no? ";wait;put "\r"
  35.  
  36. cisnd:       pat 1 "ID";sleep 20;put \003; wait
  37.  
  38. expc:        ena -8g;sleep 50;put \r;pat 1 "FIRST name -->";wait
  39.  
  40. rivlog:      pat 1 "rst Name? ";wait
  41.  
  42. gelog:       ena -H;sleep 20;pat 1 "U#";while !1 put H;wait -f3
  43.  
  44. stlog:       ena -H;sleep 20;pat 1 "U#";while !1 put H;wait -f3
  45.  
  46. peolog:      pat 1 "x";wait;put "a";pat 1 "log in:";wait;put "plink\r"
  47.  
  48. :: Learn keystrokes
  49.  
  50. tlearn   kill;echo "End script recording with ALT-C"
  51.          learn lfile
  52.          return
  53.  
  54.